home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / zlist_20.zip / ZLIST-2.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-03-13  |  19KB  |  1,286 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Integer  INTEGER001
  25.     Integer  INTEGER002
  26.     Integer  INTEGER003
  27.     Integer  INTEGER004
  28.     Integer  INTEGER005
  29.     Integer  INTEGER006
  30.     Integer  INTEGER007
  31.     Integer  INTEGER008
  32.     Integer  INTEGER009
  33.     Integer  INTEGER010
  34.     Integer  INTEGER011
  35.     Integer  INTEGER012
  36.     String   STRING001
  37.     String   STRING002
  38.     String   STRING003
  39.     String   STRING004
  40.     String   STRING005
  41.     String   STRING006
  42.     String   STRING007
  43.     String   STRING008
  44.     String   STRING009
  45.     String   STRING010
  46.     String   STRING011
  47.     String   STRING012
  48.     String   STRING013
  49.     String   STRING014
  50.     String   STRING015
  51.     String   STRING016
  52.     String   STRING017
  53.     String   STRING018
  54.     String   STRING019
  55.     String   STRING020
  56.     String   STRING021
  57.     String   STRING022
  58.     String   STRING023
  59.     String   STRING024
  60.     String   STRING025
  61.     String   STRING026
  62.     String   STRING027
  63.     String   STRING028
  64.     String   STRING029
  65.     String   STRING030
  66.     String   STRING031
  67.     String   STRING032
  68.     String   STRING033
  69.     String   STRING034
  70.     String   STRING035
  71.     String   STRING036
  72.     String   STRING037
  73.     String   STRING038
  74.     String   STRING039
  75.     String   STRING040
  76.     String   STRING041
  77.     String   STRING042
  78.     String   STRING043
  79.     String   STRING044
  80.     String   STRING045
  81.     String   STRING046
  82.     String   STRING047
  83.     String   STRING048
  84.     String   STRING049
  85.     String   STRING050
  86.     String   STRING051
  87.     String   STRING052
  88.     String   STRING053
  89.     String   STRING054
  90.     String   STRING055
  91.     String   STRING056
  92.     String   STRING057
  93.     String   STRING058
  94.     String   STRING059
  95.     String   STRING060
  96.     String   STRING061
  97.     String   STRING062
  98.     String   STRING063
  99.     String   STRING064
  100.     String   STRING065
  101.     String   STRING066
  102.     String   STRING067
  103.     String   STRING068
  104.     String   STRING069
  105.     String   STRING070
  106.     String   STRING071
  107.     String   STRING072
  108.     String   STRING073
  109.     String   STRING074
  110.     String   STRING075
  111.     String   STRING076
  112.     String   STRING077
  113.     String   STRING078
  114.     String   STRING079
  115.     String   STRING080
  116.     String   STRING081
  117.     String   STRING082
  118.     String   STRING083
  119.     String   STRING084
  120.  
  121. ;------------------------------------------------------------------------------
  122.  
  123.     STRING002 = "2.0"
  124.     INTEGER002 = 34770
  125.     INTEGER003 = 19234
  126.     INTEGER005 = 1
  127.     Newline
  128.     PrintLn "@X0FZippyList @X07-@X0F (C) Copyright 1994-1995 @X07-@X0F Whitewater Technologies, Inc."
  129.     PrintLn "@X07Licensed for distribution to DavaSoft BBS (718-967-6827) (support@dava.com)"
  130.     Print "@X0AInitializing ZippyList v" + STRING002 + " ... "
  131.     STRING003 = Chr(85) + Chr(78) + Chr(82) + Chr(69) + Chr(71) + Chr(73) + Chr(83) + Chr(84) + Chr(69) + Chr(82) + Chr(69) + Chr(68)
  132.     INTEGER010 = 32
  133.     For INTEGER010 = 32 To 255
  134.         STRING075 = STRING075 + Chr(INTEGER010)
  135.     Next
  136.     INTEGER010 = 1
  137.     INTEGER001 = 0
  138.     STRING079 = Chr(13)
  139.     STRING083 = 256
  140.     STRING084 = DefColor()
  141.     STRING076 = YesChar()
  142.     STRING077 = NoChar()
  143.     STRING078 = STRING076 + STRING077
  144.     Log "ZippyList v" + STRING002 + " Executed at " + Left(Time(), 5), 0
  145.     Newline
  146.     If (DbgLevel() > 0) Log "   ■ ZLIST: Debug Mode is ON (Level " + DbgLevel() + ")", 0
  147.     If (Ver() <= 1500) Then
  148.         Log "   ■ Error: PCBoard v15.2 or later MUST be used!", 0
  149.     Else
  150.         GetUser
  151.         STRING080 = GetToken()
  152.         If (INTEGER005 <> 0) Then
  153.             INTEGER006 = FileInf(PPEPath() + PPEName() + ".PPE", 2)
  154.             INTEGER004 = Date()
  155.             If (Len(Trim(STRING003, " ")) <> 12) Goto LABEL004
  156.         ElseIf (INTEGER005 == 0) Then
  157.             INTEGER001 = 1
  158.         Endif
  159.         Gosub LABEL003
  160.         Gosub LABEL002
  161.         If (INTEGER001 <> 1) Then
  162.             Newline
  163.             PrintLn "@X07[@X0CThis version of ZippyList is " + STRING003 + "@X07]"
  164.             PrintLn "@X07[@X0ACall DavaSoft to register - BBS: 718-967-6827 Voice: 718-967-5713@X07]"
  165.             Log "   ■ " + STRING003 + " version of ZippyList!", 0
  166.             Delay 10 * 18.2
  167.         Endif
  168.         Newline
  169.         If (BOOLEAN001 || !U_Expert) Then
  170.             If (Exist(STRING020)) Then
  171.                 DispFile STRING020, 4 + 2
  172.                 Goto LABEL001
  173.             Endif
  174.         Endif
  175.         :LABEL001
  176.         Gosub LABEL056
  177.         If (U_Expert && !BOOLEAN002) Then
  178.             PrintLn STRING064
  179.             Newline
  180.         Endif
  181.         Gosub LABEL044
  182.         Gosub LABEL005
  183.         Goto LABEL059
  184.         :LABEL002
  185.         INTEGER001 = 0
  186.         STRING004 = ""
  187.         STRING004 = Chr(52) + String(Len(STRING016) - 2)
  188.         STRING004 = STRING004 + Chr(55) + String(Len(STRING016) - 9)
  189.         STRING004 = STRING004 + Chr(49) + String(Len(STRING016) - 6)
  190.         STRING004 = STRING004 + Chr(45) + Chr(50) + String(Len(STRING015) - 5) + Chr(49)
  191.         For INTEGER009 = 1 To 25
  192.             STRING001 = Mid(STRING015, INTEGER009, 1)
  193.             INTEGER008 = Asc(STRING001)
  194.             INTEGER007 = INTEGER007 + INTEGER008
  195.             STRING001 = Mid(STRING016, INTEGER009, 1)
  196.             INTEGER008 = Asc(STRING001) + 4
  197.             INTEGER007 = INTEGER007 + INTEGER008
  198.         Next
  199.         STRING001 = Right(STRING016, 1)
  200.         INTEGER008 = Asc(STRING001)
  201.         INTEGER007 = INTEGER007 - INTEGER008
  202.         INTEGER007 = (INTEGER007 * (Len(Strip(STRING015, " ")) * 9)) * 2
  203.         If (INTEGER007 == ToInteger(STRING017)) Then
  204.             INTEGER001 = 1
  205.         Else
  206.             INTEGER001 = 0
  207.         Endif
  208.         Return
  209.         :LABEL003
  210.         If (Exist(PPEPath() + "ZLIST.CFG")) Then
  211.             FOpen 0, PPEPath() + "ZLIST.CFG", 0, 0
  212.             FGet 0, STRING015
  213.             FGet 0, STRING016
  214.             FGet 0, STRING017
  215.             FGet 0, STRING018
  216.             FGet 0, STRING019
  217.             FGet 0, STRING020
  218.             FGet 0, STRING021
  219.             FGet 0, STRING022
  220.             FGet 0, STRING023
  221.             FGet 0, STRING024
  222.             FGet 0, STRING025
  223.             FGet 0, STRING026
  224.             FGet 0, STRING027
  225.             FGet 0, STRING028
  226.             FGet 0, STRING029
  227.             FGet 0, STRING030
  228.             FGet 0, STRING031
  229.             FGet 0, STRING032
  230.             FGet 0, STRING033
  231.             FGet 0, STRING034
  232.             FGet 0, STRING035
  233.             FGet 0, STRING036
  234.             FGet 0, STRING037
  235.             FGet 0, STRING038
  236.             FGet 0, STRING039
  237.             FGet 0, STRING040
  238.             FGet 0, STRING041
  239.             FGet 0, STRING042
  240.             FGet 0, STRING043
  241.             FGet 0, STRING044
  242.             FGet 0, STRING045
  243.             FClose 0
  244.             STRING015 = Upper(Trim(STRING015, " "))
  245.             STRING016 = Trim(STRING016, " ")
  246.             STRING017 = Upper(Trim(STRING017, " "))
  247.             If (Upper(Left(STRING018, 1)) == "Y") Then
  248.                 BOOLEAN001 = 1
  249.             Else
  250.                 BOOLEAN001 = 0
  251.             Endif
  252.             If (Upper(Left(STRING019, 1)) == "Y") Then
  253.                 BOOLEAN002 = 1
  254.             Else
  255.                 BOOLEAN002 = 0
  256.             Endif
  257.             STRING020 = PPEPath() + Upper(STRING020)
  258.             STRING021 = PPEPath() + Upper(STRING021)
  259.             STRING022 = PPEPath() + Upper(STRING022)
  260.             STRING023 = PPEPath() + Upper(STRING023)
  261.             STRING024 = PPEPath() + Upper(STRING024)
  262.             STRING025 = PPEPath() + Upper(STRING025)
  263.             STRING026 = PPEPath() + Upper(STRING026)
  264.             STRING027 = PPEPath() + Upper(STRING027)
  265.             STRING028 = PPEPath() + Upper(STRING028)
  266.             STRING029 = PPEPath() + Upper(STRING029)
  267.             STRING030 = PPEPath() + Upper(STRING030)
  268.             STRING031 = PPEPath() + Upper(STRING031)
  269.             STRING032 = PPEPath() + Upper(STRING032)
  270.             STRING033 = PPEPath() + Upper(STRING033)
  271.             STRING034 = PPEPath() + Upper(STRING034)
  272.             STRING035 = PPEPath() + Upper(STRING035)
  273.             STRING036 = PPEPath() + Upper(STRING036)
  274.             STRING037 = PPEPath() + Upper(STRING037)
  275.             STRING038 = PPEPath() + Upper(STRING038)
  276.             STRING039 = PPEPath() + Upper(STRING039)
  277.             STRING040 = Upper(STRING040)
  278.             STRING041 = Upper(STRING041)
  279.             STRING042 = ReplaceStr(STRING042, "%PCBDRIVE%", GetEnv("PCBDRIVE"))
  280.             STRING042 = ReplaceStr(STRING042, "%PCBDIR%", GetEnv("PCBDIR"))
  281.             STRING042 = ReplaceStr(STRING042, "%PCBNODE%", String(PcbNode()))
  282.             STRING042 = Upper(RTrim(STRING042, "\")) + "\"
  283.             STRING043 = Upper(STRING043)
  284.             STRING043 = Replace(STRING043, "%PCBDRIVE%", GetEnv("PCBDRIVE"))
  285.             STRING043 = Replace(STRING043, "%PCBDIR%", GetEnv("PCBDIR"))
  286.             STRING043 = Replace(STRING043, "%PCBNODE%", String(PcbNode()))
  287.             STRING044 = Replace(STRING044, "%PCBDRIVE%", GetEnv("PCBDRIVE"))
  288.             STRING044 = Replace(STRING044, "%PCBDIR%", GetEnv("PCBDIR"))
  289.             STRING044 = Replace(STRING044, "%PCBNODE%", String(PcbNode()))
  290.             STRING045 = ReplaceStr(STRING045, "%PCBDRIVE%", GetEnv("PCBDRIVE"))
  291.             STRING045 = ReplaceStr(STRING045, "%PCBDIR%", GetEnv("PCBDIR"))
  292.             STRING045 = ReplaceStr(STRING045, "%PCBNODE%", String(PcbNode()))
  293.             STRING045 = Upper(RTrim(STRING045, "\")) + "\"
  294.             If (!Exist(STRING043) && (STRING043 <> "")) Then
  295.                 PrintLn "@X0CError: Compression program not found! Please notify Sysop!"
  296.                 Log "   ■ Error: Compression program not found!", 0
  297.                 Log "   ■ Check configuration file: ZLIST.CFG", 0
  298.                 STRING043 = ""
  299.                 Goto LABEL059
  300.             Endif
  301.         Else
  302.             Log "Error: ZLIST.CFG Configuration file not found!", 0
  303.             Newlines 2
  304.             PrintLn "@X0CConfiguration file not found! Please Notify Sysop!"
  305.             Newlines 2
  306.             Wait
  307.             Goto LABEL059
  308.         Endif
  309.         STRING081 = Upper(Trim(LangExt(), " "))
  310.         STRING081 = Strip(STRING081, ".")
  311.         If (STRING081 <> "") Then
  312.             If (Exist(RTrim(STRING034, ".") + "." + STRING081)) STRING034 = RTrim(STRING034, ".") + "." + STRING081
  313.         Endif
  314.         If (Exist(STRING034)) Then
  315.             FOpen 0, STRING034, 0, 0
  316.             FGet 0, STRING046
  317.             FGet 0, STRING047
  318.             FGet 0, STRING048
  319.             FGet 0, STRING049
  320.             FGet 0, STRING050
  321.             FGet 0, STRING051
  322.             FGet 0, STRING052
  323.             FGet 0, STRING053
  324.             FGet 0, STRING054
  325.             FGet 0, STRING055
  326.             FGet 0, STRING056
  327.             FGet 0, STRING057
  328.             FGet 0, STRING058
  329.             FGet 0, STRING059
  330.             FGet 0, STRING060
  331.             FGet 0, STRING061
  332.             FGet 0, STRING062
  333.             FGet 0, STRING063
  334.             FGet 0, STRING064
  335.             FGet 0, STRING065
  336.             FGet 0, STRING066
  337.             FGet 0, STRING067
  338.             FGet 0, STRING068
  339.             FGet 0, STRING069
  340.             FGet 0, STRING070
  341.             FGet 0, STRING071
  342.             FGet 0, STRING072
  343.             FGet 0, STRING073
  344.             FGet 0, STRING074
  345.             FClose 0
  346.         Else
  347.             Log "   ■ Error: Configuration file not found!", 0
  348.             Newlines 2
  349.             PrintLn "@X0CConfiguration file not found! Please Notify Sysop!"
  350.             Newlines 2
  351.             Wait
  352.             Goto LABEL059
  353.         Endif
  354.         Return
  355.         :LABEL004
  356.         Cls
  357.         Beep
  358.         Newlines 2
  359.         PrintLn "@X07[@X0CZippyList is (c) Copyrighted Software by Whitewater Technologies, Inc.@X07]"
  360.         PrintLn "@X07[@X0FDavaSoft BBS - 718-967-6827@X07]"
  361.         Newline
  362.         PrintLn "@X07[@X0CZippyList's authentic seal has been altered!@X07]"
  363.         PrintLn "@X07[@X07Please call DavaSoft BBS and download the newest release@X07]"
  364.         Log "   ■ ZLIST: Seal has been ALTERED!", 0
  365.         Newline
  366.         Goto LABEL059
  367.         :LABEL005
  368.         STRING082 = ""
  369.         OpText STRING012
  370.         If (!U_Expert || BOOLEAN002) Then
  371.             If (Exist(STRING021)) Then
  372.                 DispFile STRING021, 4 + 2
  373.                 Goto LABEL006
  374.             Endif
  375.             Log "   ■ Error: ZMAIN file not found!", 0
  376.         Endif
  377.         :LABEL006
  378.         While (STRING082 == "") Do
  379.             InputStr STRING048, STRING082, 7, 4, "FSMLCDAGENUHQ?", STRING083 + 8
  380.             STRING082 = Trim(STRING082, " ")
  381.             If (STRING082 == "FL") STRING082 = "FLAG"
  382.             If (STRING082 == "FLA") STRING082 = "FLAG"
  383.             If (STRING082 == "ME") STRING082 = "MENU"
  384.             If (STRING082 == "MEN") STRING082 = "MENU"
  385.             If (STRING082 == "F") Then
  386.                 Dir "R"
  387.                 If (!U_Expert || BOOLEAN002) Wait
  388.                 Goto LABEL005
  389.                 Continue
  390.             Endif
  391.             If (STRING082 == "S") Then
  392.                 Gosub LABEL013
  393.                 Goto LABEL005
  394.                 Continue
  395.             Endif
  396.             If (STRING082 == "L") Then
  397.                 STRING082 = ""
  398.                 OpText STRING012
  399.                 If (Exist(STRING027)) Then
  400.                     DispFile STRING027, 4 + 2
  401.                     Goto LABEL007
  402.                 Endif
  403.                 Log "   ■ Error: ZEXECMD file not found!", 0
  404.                 PrintLn "@X0CExecution Command Display file not found - Please notify Sysop!"
  405.                 :LABEL007
  406.                 If (!U_Expert || BOOLEAN002) Wait
  407.                 Goto LABEL005
  408.                 Continue
  409.             Endif
  410.             If (STRING082 == "C") Then
  411.                 STRING082 = "Y"
  412.                 OpText STRING012
  413.                 If (Exist(STRING028)) Then
  414.                     DispFile STRING028, 4 + 2
  415.                     Goto LABEL008
  416.                 Endif
  417.                 Log "   ■ Error: ZCLEAR file not found!", 0
  418.                 PrintLn "@X0CZLEAR file not found - Please notify Sysop!"
  419.                 :LABEL008
  420.                 InputStr STRING073, STRING082, 7, 1, STRING078, STRING083 + 8 + 4 + 2
  421.                 STRING082 = Trim(STRING082, " ")
  422.                 If ((STRING082 == "Y") || (STRING082 == "")) Gosub LABEL056
  423.                 Goto LABEL005
  424.                 Continue
  425.             Endif
  426.             If (STRING082 == "D") Then
  427.                 STRING082 = ""
  428.                 Newline
  429.                 If (BOOLEAN003) Then
  430.                     BOOLEAN005 = 0
  431.                     Gosub LABEL057
  432.                     Goto LABEL009
  433.                 Endif
  434.                 PrintLn STRING069
  435.                 :LABEL009
  436.                 Newline
  437.                 Continue
  438.             Endif
  439.             If (STRING082 == "FLAG") Then
  440.                 STRING082 = ""
  441.                 Newline
  442.                 If (BOOLEAN003) Then
  443.                     OpText STRING041
  444.                     PrintLn STRING066
  445.                     BOOLEAN005 = 1
  446.                     Goto LABEL010
  447.                 Endif
  448.                 PrintLn STRING070
  449.                 :LABEL010
  450.                 Newline
  451.                 If (!U_Expert || BOOLEAN002) Then
  452.                     Wait
  453.                     Goto LABEL005
  454.                 Endif
  455.                 Continue
  456.             Endif
  457.             If (STRING082 == "MENU") Then
  458.                 STRING082 = ""
  459.                 If (Exist(STRING021)) Then
  460.                     DispFile STRING021, 4 + 2
  461.                     Goto LABEL011
  462.                 Endif
  463.                 Log "   ■ Error: ZMAIN file not found!", 0
  464.                 PrintLn "@X0CMain Menu file not found - Please notify Sysop!"
  465.                 :LABEL011
  466.                 Continue
  467.             Endif
  468.             If ((STRING082 == "H") || (STRING082 == "?")) Then
  469.                 If (Exist(STRING029)) Then
  470.                     DispFile STRING029, 4 + 2
  471.                     Goto LABEL012
  472.                 Endif
  473.                 Log "   ■ Error: ZHLP file not found!", 0
  474.                 PrintLn "@X0CMain Menu Help file not found - Please notify Sysop!"
  475.                 :LABEL012
  476.                 If (!U_Expert || BOOLEAN002) Wait
  477.                 Goto LABEL005
  478.                 Continue
  479.             Endif
  480.             If (STRING082 == "Q") Then
  481.                 Goto LABEL059
  482.                 Continue
  483.             Endif
  484.             If (STRING082 == "") Then
  485.                 STRING082 = ""
  486.                 Continue
  487.             Endif
  488.             STRING082 = ""
  489.             DispText 56, 256 + 128 + 2048
  490.             Newline
  491.         EndWhile
  492.         Goto LABEL059
  493.         Return
  494.         :LABEL013
  495.         STRING082 = ""
  496.         OpText STRING012
  497.         If (!U_Expert || BOOLEAN002) Then
  498.             If (Exist(STRING022)) Then
  499.                 DispFile STRING022, 4 + 2
  500.                 Goto LABEL014
  501.             Endif
  502.             Log "   ■ Error: ZSEARCH file not found!", 0
  503.         Endif
  504.         :LABEL014
  505.         While (STRING082 == "") Do
  506.             InputStr STRING049, STRING082, 7, 4, "123LMENUH?Q", STRING083 + 8
  507.             STRING082 = Trim(STRING082, " ")
  508.             If (STRING082 == "ME") STRING082 = "MENU"
  509.             If (STRING082 == "MEN") STRING082 = "MENU"
  510.             If (STRING082 == "1") Then
  511.                 Gosub LABEL023
  512.                 If (!U_Expert || BOOLEAN002) Then
  513.                     If (Exist(STRING022)) Then
  514.                         DispFile STRING022, 4 + 2
  515.                         Goto LABEL015
  516.                     Endif
  517.                     Log "   ■ Error: ZSEARCH file not found!", 0
  518.                 Endif
  519.                 :LABEL015
  520.                 Continue
  521.             Endif
  522.             If (STRING082 == "2") Then
  523.                 Gosub LABEL033
  524.                 If (!U_Expert || BOOLEAN002) Then
  525.                     If (Exist(STRING022)) Then
  526.                         DispFile STRING022, 4 + 2
  527.                         Goto LABEL016
  528.                     Endif
  529.                     Log "   ■ Error: ZSEARCH file not found!", 0
  530.                 Endif
  531.                 :LABEL016
  532.                 Continue
  533.             Endif
  534.             If (STRING082 == "3") Then
  535.                 If (STRING008 == "000000") STRING008 = Left(U_LDir(), 2) + Mid(U_LDir(), 4, 2) + Right(U_LDir(), 2)
  536.                 Gosub LABEL038
  537.                 If (!U_Expert || BOOLEAN002) Then
  538.                     If (Exist(STRING022)) Then
  539.                         DispFile STRING022, 4 + 2
  540.                         Goto LABEL017
  541.                     Endif
  542.                     Log "   ■ Error: ZSEARCH file not found!", 0
  543.                 Endif
  544.                 :LABEL017
  545.                 Continue
  546.             Endif
  547.             If (STRING082 == "L") Then
  548.                 STRING082 = ""
  549.                 OpText STRING012
  550.                 If (Exist(STRING027)) Then
  551.                     DispFile STRING027, 4 + 2
  552.                     Goto LABEL018
  553.                 Endif
  554.                 Log "   ■ Error: ZEXECMD file not found!", 0
  555.                 PrintLn "@X0CExecution Command Display file not found - Please notify Sysop!"
  556.                 :LABEL018
  557.                 If (!U_Expert || BOOLEAN002) Then
  558.                     Wait
  559.                     If (Exist(STRING022)) Then
  560.                         DispFile STRING022, 4 + 2
  561.                         Goto LABEL019
  562.                     Endif
  563.                     Log "   ■ Error: ZSEARCH file not found!", 0
  564.                 Endif
  565.                 :LABEL019
  566.                 Continue
  567.             Endif
  568.             If (STRING082 == "MENU") Then
  569.                 STRING082 = ""
  570.                 If (Exist(STRING022)) Then
  571.                     DispFile STRING022, 4 + 2
  572.                     Goto LABEL020
  573.                 Endif
  574.                 Log "   ■ Error: ZSEARCH file not found!", 0
  575.                 PrintLn "@X0CSearch Menu file not found - Please notify Sysop!"
  576.                 :LABEL020
  577.                 Continue
  578.             Endif
  579.             If ((STRING082 == "H") || (STRING082 == "?")) Then
  580.                 STRING082 = ""
  581.                 If (Exist(STRING030)) Then
  582.                     DispFile STRING030, 4 + 2
  583.                     Goto LABEL021
  584.                 Endif
  585.                 Log "   ■ Error: ZHLPS file not found!", 0
  586.                 PrintLn "@X0CSearch Menu Help file not found - Please notify Sysop!"
  587.                 :LABEL021
  588.                 If (!U_Expert || BOOLEAN002) Then
  589.                     Wait
  590.                     If (Exist(STRING022)) Then
  591.                         DispFile STRING022, 4 + 2
  592.                         Goto LABEL022
  593.                     Endif
  594.                     Log "   ■ Error: ZSEARCH file not found!", 0
  595.                 Endif
  596.                 :LABEL022
  597.                 Continue
  598.             Endif
  599.             If (STRING082 == "Q") Then
  600.                 Continue
  601.             Endif
  602.             If (STRING082 == "") Then
  603.                 STRING082 = ""
  604.                 Continue
  605.             Endif
  606.             STRING082 = ""
  607.             DispText 56, 256 + 128 + 2048
  608.             Newline
  609.         EndWhile
  610.         STRING082 = ""
  611.         Return
  612.         :LABEL023
  613.         STRING082 = ""
  614.         While (STRING082 == "") Do
  615.             Gosub LABEL044
  616.             OpText STRING012
  617.             If (!U_Expert || BOOLEAN002) Gosub LABEL047
  618.             InputStr STRING050, STRING082, 7, 4, "MENDFCSUH?Q", STRING083 + 8
  619.             STRING082 = Trim(STRING082, " ")
  620.             If (STRING082 == "ME") STRING082 = "MENU"
  621.             If (STRING082 == "MEN") STRING082 = "MENU"
  622.             If (STRING082 == "M") Then
  623.                 STRING082 = ""
  624.                 Gosub LABEL027
  625.                 Continue
  626.             Endif
  627.             If (STRING082 == "E") Then
  628.                 STRING082 = ""
  629.                 Gosub LABEL028
  630.                 Continue
  631.             Endif
  632.             If (STRING082 == "N") Then
  633.                 STRING082 = ""
  634.                 Gosub LABEL029
  635.                 Continue
  636.             Endif
  637.             If (STRING082 == "D") Then
  638.                 STRING082 = ""
  639.                 Gosub LABEL030
  640.                 Continue
  641.             Endif
  642.             If (STRING082 == "F") Then
  643.                 STRING082 = ""
  644.                 Gosub LABEL031
  645.                 Continue
  646.             Endif
  647.             If (STRING082 == "C") Then
  648.                 STRING082 = ""
  649.                 Gosub LABEL032
  650.                 Continue
  651.             Endif
  652.             If (STRING082 == "S") Then
  653.                 If (Left(STRING012, 1) == "(") Then
  654.                     Newline
  655.                     PrintLn STRING068
  656.                     Newline
  657.                     If (!U_Expert || BOOLEAN002) Wait
  658.                     Goto LABEL024
  659.                 Endif
  660.                 Gosub LABEL042
  661.                 :LABEL024
  662.                 STRING082 = ""
  663.                 Continue
  664.             Endif
  665.             If (STRING082 == "MENU") Then
  666.                 STRING082 = ""
  667.                 If (Exist(STRING023)) Then
  668.                     Gosub LABEL047
  669.                     Goto LABEL025
  670.                 Endif
  671.                 Log "   ■ Error: ZSRCHTXT file not found!", 0
  672.                 PrintLn "@X0CText Search Menu file not found - Please notify Sysop!"
  673.                 :LABEL025
  674.                 Continue
  675.             Endif
  676.             If ((STRING082 == "H") || (STRING082 == "?")) Then
  677.                 STRING082 = ""
  678.                 If (Exist(STRING031)) Then
  679.                     DispFile STRING031, 4 + 2
  680.                     Goto LABEL026
  681.                 Endif
  682.                 Log "   ■ Error: ZHLPSTXT file not found!", 0
  683.                 PrintLn "@X0CSearch Text Operation Help file not found - Please notify Sysop!"
  684.                 :LABEL026
  685.                 If (!U_Expert || BOOLEAN002) Wait
  686.                 Continue
  687.             Endif
  688.             If (STRING082 == "Q") Then
  689.                 Continue
  690.             Endif
  691.             If (STRING082 == "") Then
  692.                 STRING082 = ""
  693.                 Continue
  694.             Endif
  695.             STRING082 = ""
  696.             DispText 56, 256 + 128 + 2048
  697.             Newline
  698.             If (!U_Expert || BOOLEAN002) Wait
  699.         EndWhile
  700.         STRING082 = ""
  701.         Return
  702.         :LABEL027
  703.         InputStr STRING053, STRING006, 7, 50, STRING075, STRING083 + 8 + 4 + 2
  704.         STRING006 = Trim(STRING006, " ")
  705.         Return
  706.         :LABEL028
  707.         InputStr STRING054, STRING007, 7, 50, STRING075, STRING083 + 8 + 4 + 2
  708.         STRING007 = Trim(STRING007, " ")
  709.         Return
  710.         :LABEL029
  711.         InputStr STRING056, STRING008, 7, 6, Mask_Num(), STRING083 + 8 + 4 + 2
  712.         STRING008 = Trim(STRING008, " ")
  713.         If ((Len(STRING008) < 6) || !ValDate(STRING008)) STRING008 = "000000"
  714.         Return
  715.         :LABEL030
  716.         InputStr STRING057, STRING009, 7, 45, Mask_Num() + "PAU,-", STRING083 + 8 + 4 + 2
  717.         STRING009 = Trim(STRING009, " ")
  718.         STRING009 = Replace(STRING009, " ", "")
  719.         For INTEGER010 = 1 To 20
  720.             STRING009 = ReplaceStr(STRING009, ",,", ",")
  721.             STRING009 = ReplaceStr(STRING009, "AA", "A")
  722.             STRING009 = ReplaceStr(STRING009, "PP", "P")
  723.             STRING009 = ReplaceStr(STRING009, "UU", "U")
  724.         Next
  725.         STRING009 = LTrim(STRING009, ",")
  726.         STRING009 = RTrim(STRING009, ",")
  727.         If ((STRING009 == "") || (InStr(STRING009, "A") <> 0)) STRING009 = "A"
  728.         Return
  729.         :LABEL031
  730.         STRING010 = Left(STRING010, 1)
  731.         InputStr STRING058, STRING010, 7, 1, STRING078, STRING083 + 8 + 4 + 2
  732.         STRING010 = Trim(STRING010, " ")
  733.         If (STRING010 == "") STRING010 = "N"
  734.         If (Left(STRING010, 1) == "Y") Then
  735.             STRING010 = "Yes"
  736.         Else
  737.             STRING010 = "No"
  738.         Endif
  739.         Return
  740.         :LABEL032
  741.         STRING011 = Left(STRING011, 1)
  742.         InputStr STRING046, STRING011, 7, 1, STRING078, STRING083 + 8 + 4 + 2
  743.         STRING011 = Trim(STRING011, " ")
  744.         If (STRING010 == "") STRING011 = "Y"
  745.         If (Left(STRING011, 1) == "Y") Then
  746.             STRING011 = "Yes"
  747.         Else
  748.             STRING011 = "No"
  749.         Endif
  750.         Return
  751.         :LABEL033
  752.         STRING082 = ""
  753.         While (STRING082 == "") Do
  754.             Gosub LABEL045
  755.             OpText STRING012
  756.             If (!U_Expert || BOOLEAN002) Gosub LABEL050
  757.             InputStr STRING051, STRING082, 7, 4, "MENDFCSUH?Q", STRING083 + 8
  758.             STRING082 = Trim(STRING082, " ")
  759.             If (STRING082 == "ME") STRING082 = "MENU"
  760.             If (STRING082 == "MEN") STRING082 = "MENU"
  761.             If (STRING082 == "M") Then
  762.                 STRING082 = ""
  763.                 Gosub LABEL037
  764.                 Continue
  765.             Endif
  766.             If (STRING082 == "N") Then
  767.                 STRING082 = ""
  768.                 Gosub LABEL029
  769.                 Continue
  770.             Endif
  771.             If (STRING082 == "D") Then
  772.                 STRING082 = ""
  773.                 Gosub LABEL030
  774.                 Continue
  775.             Endif
  776.             If (STRING082 == "F") Then
  777.                 STRING082 = ""
  778.                 Gosub LABEL031
  779.                 Continue
  780.             Endif
  781.             If (STRING082 == "C") Then
  782.                 STRING082 = ""
  783.                 Gosub LABEL032
  784.                 Continue
  785.             Endif
  786.             If (STRING082 == "S") Then
  787.                 If (Left(STRING012, 1) == "(") Then
  788.                     Newline
  789.                     PrintLn STRING068
  790.                     Newline
  791.                     If (!U_Expert || BOOLEAN002) Wait
  792.                     Goto LABEL034
  793.                 Endif
  794.                 Gosub LABEL042
  795.                 :LABEL034
  796.                 STRING082 = ""
  797.                 Continue
  798.             Endif
  799.             If (STRING082 == "MENU") Then
  800.                 STRING082 = ""
  801.                 If (Exist(STRING024)) Then
  802.                     Gosub LABEL050
  803.                     Goto LABEL035
  804.                 Endif
  805.                 Log "   ■ Error: ZSRCHFLE file not found!", 0
  806.                 PrintLn "@X0CFile Search Menu file not found - Please notify Sysop!"
  807.                 :LABEL035
  808.                 Continue
  809.             Endif
  810.             If ((STRING082 == "H") || (STRING082 == "?")) Then
  811.                 STRING082 = ""
  812.                 If (Exist(STRING032)) Then
  813.                     DispFile STRING032, 4 + 2
  814.                     Goto LABEL036
  815.                 Endif
  816.                 Log "   ■ Error: ZHLPSFLE file not found!", 0
  817.                 PrintLn "@X0CSearch File Operation Help file not found - Please notify Sysop!"
  818.                 :LABEL036
  819.                 If (!U_Expert || BOOLEAN002) Wait
  820.                 Continue
  821.             Endif
  822.             If (STRING082 == "Q") Then
  823.                 Continue
  824.             Endif
  825.             If (STRING082 == "") Then
  826.                 STRING082 = ""
  827.                 Continue
  828.             Endif
  829.             STRING082 = ""
  830.             DispText 56, 256 + 128 + 2048
  831.             Newline
  832.             If (!U_Expert || BOOLEAN002) Wait
  833.         EndWhile
  834.         STRING082 = ""
  835.         Return
  836.         :LABEL037
  837.         InputStr STRING055, STRING005, 7, 12, STRING075, STRING083 + 8 + 4 + 2
  838.         STRING005 = Trim(STRING005, " ")
  839.         If (InStr(STRING005, ".") == 0) STRING005 = Left(STRING005, 8)
  840.         If ((InStr(STRING005, ".") == 0) && (STRING005 <> "")) STRING005 = STRING005 + ".*"
  841.         Return
  842.         :LABEL038
  843.         STRING082 = ""
  844.         While (STRING082 == "") Do
  845.             Gosub LABEL046
  846.             OpText STRING012
  847.             If (!U_Expert || BOOLEAN002) Gosub LABEL053
  848.             InputStr STRING052, STRING082, 7, 4, "MENDFCSUH?Q", STRING083 + 8
  849.             STRING082 = Trim(STRING082, " ")
  850.             If (STRING082 == "ME") STRING082 = "MENU"
  851.             If (STRING082 == "MEN") STRING082 = "MENU"
  852.             If (STRING082 == "N") Then
  853.                 STRING082 = ""
  854.                 Gosub LABEL029
  855.                 Continue
  856.             Endif
  857.             If (STRING082 == "D") Then
  858.                 STRING082 = ""
  859.                 Gosub LABEL030
  860.                 Continue
  861.             Endif
  862.             If (STRING082 == "F") Then
  863.                 STRING082 = ""
  864.                 Gosub LABEL031
  865.                 Continue
  866.             Endif
  867.             If (STRING082 == "C") Then
  868.                 STRING082 = ""
  869.                 Gosub LABEL032
  870.                 Continue
  871.             Endif
  872.             If (STRING082 == "S") Then
  873.                 If (Left(STRING012, 1) == "(") Then
  874.                     Newline
  875.                     PrintLn STRING068
  876.                     Newline
  877.                     If (!U_Expert || BOOLEAN002) Wait
  878.                     Goto LABEL039
  879.                 Endif
  880.                 Gosub LABEL042
  881.                 :LABEL039
  882.                 STRING082 = ""
  883.                 Continue
  884.             Endif
  885.             If (STRING082 == "MENU") Then
  886.                 STRING082 = ""
  887.                 If (Exist(STRING025)) Then
  888.                     Gosub LABEL053
  889.                     Goto LABEL040
  890.                 Endif
  891.                 Log "   ■ Error: ZSRCHDTE file not found!", 0
  892.                 PrintLn "@X0CDate Search Menu file not found - Please notify Sysop!"
  893.                 :LABEL040
  894.                 Continue
  895.             Endif
  896.             If ((STRING082 == "H") || (STRING082 == "?")) Then
  897.                 STRING082 = ""
  898.                 If (Exist(STRING033)) Then
  899.                     DispFile STRING033, 4 + 2
  900.                     Goto LABEL041
  901.                 Endif
  902.                 Log "   ■ Error: ZHLPSDTE file not found!", 0
  903.                 PrintLn "@X0CSearch Date Operation Help file not found - Please notify Sysop!"
  904.                 :LABEL041
  905.                 If (!U_Expert || BOOLEAN002) Wait
  906.                 Continue
  907.             Endif
  908.             If (STRING082 == "Q") Then
  909.                 Continue
  910.             Endif
  911.             If (STRING082 == "") Then
  912.                 STRING082 = ""
  913.                 Continue
  914.             Endif
  915.             STRING082 = ""
  916.             DispText 56, 256 + 128 + 2048
  917.             Newline
  918.             If (!U_Expert || BOOLEAN002) Wait
  919.         EndWhile
  920.         STRING082 = ""
  921.         Return
  922.         :LABEL042
  923.         STRING082 = "Y"
  924.         If (Exist(STRING035)) Then
  925.             DispFile STRING035, 4 + 2
  926.         Else
  927.             Log "   ■ Error: SCAN file not found!", 0
  928.         Endif
  929.         InputStr STRING047, STRING082, 7, 1, STRING078, STRING083 + 8 + 4 + 2
  930.         STRING082 = Trim(STRING082, " ")
  931.         If (STRING082 == "N") Return
  932.         Select Case (Left(STRING012, 1))
  933.             Case "Z"
  934.                 Log "   ■ Searching directories for text", 0
  935.             Case "L"
  936.                 Log "   ■ Searching directories for filename(s)", 0
  937.             Case "N"
  938.                 Log "   ■ Searching directories since MMDDYY", 0
  939.         End Select
  940.         Log "   ■ (" + STRING012 + ")", 0
  941.         If (Left(STRING011, 1) == "Y") Then
  942.             BOOLEAN003 = 1
  943.             BOOLEAN004 = 0
  944.             If (Exist(STRING036)) Then
  945.                 DispFile STRING036, 4 + 2
  946.             Else
  947.                 Log "   ■ Error: SCANNING file not found!", 0
  948.             Endif
  949.             ShowOff
  950.             CdChkOff
  951.             KbdChkOff
  952.             If (Exist(STRING042 + STRING040)) Goto LABEL043
  953.             If (Exist(STRING038)) Copy STRING038, STRING042 + STRING040
  954.             :LABEL043
  955.             OpenCap STRING042 + STRING040, INTEGER011
  956.             INTEGER012 = GetY()
  957.             KbdStuff STRING079
  958.             Dir STRING012
  959.             CloseCap 
  960.             CdChkOn
  961.             KbdChkOn
  962.             ShowOn
  963.             AnsiPos 0, INTEGER012 - 1
  964.             ClrEol
  965.             AnsiPos 0, INTEGER012
  966.         Else
  967.             Dir STRING012
  968.         Endif
  969.         If (Exist(STRING037)) Then
  970.             DispFile STRING037, 4 + 2
  971.         Else
  972.             Log "   ■ Error: SCANDONE file not found!", 0
  973.         Endif
  974.         If (!U_Expert || BOOLEAN002) Wait
  975.         Return
  976.         :LABEL044
  977.         If (STRING006 <> "") Then
  978.             STRING012 = "Z " + STRING006
  979.             If (STRING007 <> "") STRING012 = STRING012 + " & ! " + STRING007
  980.             If ((STRING008 <> "") && (STRING008 <> "000000")) STRING012 = STRING012 + " N " + STRING008
  981.             If (STRING009 <> "") STRING012 = STRING012 + " " + STRING009
  982.             If (Left(STRING010, 1) == "Y") STRING012 = STRING012 + " D"
  983.         Else
  984.             STRING012 = "(N/A)"
  985.         Endif
  986.         Return
  987.         :LABEL045
  988.         If (STRING005 <> "") Then
  989.             STRING012 = "L " + STRING005
  990.             If ((STRING008 <> "") && (STRING008 <> "000000")) STRING012 = STRING012 + " N " + STRING008
  991.             If (STRING009 <> "") STRING012 = STRING012 + " " + STRING009
  992.             If (Left(STRING010, 1) == "Y") STRING012 = STRING012 + " D"
  993.         Else
  994.             STRING012 = "(N/A)"
  995.         Endif
  996.         Return
  997.         :LABEL046
  998.         If ((STRING008 <> "") && (STRING008 <> "000000")) Then
  999.             STRING012 = "N " + STRING008
  1000.             If (STRING009 <> "") STRING012 = STRING012 + " " + STRING009
  1001.             If (Left(STRING010, 1) == "Y") STRING012 = STRING012 + " D"
  1002.         Else
  1003.             STRING012 = "(N/A)"
  1004.         Endif
  1005.         Return
  1006.         :LABEL047
  1007.         If (Exist(STRING023)) Then
  1008.             FOpen 0, STRING023, 0, 0
  1009.             :LABEL048
  1010.             If (Ferr(0)) Goto LABEL049
  1011.             STRING082 = ""
  1012.             FGet 0, STRING082
  1013.             STRING082 = ReplaceStr(STRING082, "@MATCHING@", STRING006)
  1014.             STRING082 = ReplaceStr(STRING082, "@EXCLUDING@", STRING007)
  1015.             STRING082 = ReplaceStr(STRING082, "@FILEDATE@", STRING008)
  1016.             STRING082 = ReplaceStr(STRING082, "@DIRECTORIES@", STRING009)
  1017.             STRING082 = ReplaceStr(STRING082, "@FLAGDL@", STRING010)
  1018.             STRING082 = ReplaceStr(STRING082, "@CAPTURE@", STRING011)
  1019.             STRING082 = ReplaceStr(STRING082, "@SRCHCMD@", STRING012)
  1020.             PrintLn STRING082
  1021.             Goto LABEL048
  1022.             :LABEL049
  1023.             FClose 0
  1024.         Else
  1025.             Log "   ■ Error: ZSRCHTXT file not found!", 0
  1026.         Endif
  1027.         STRING082 = ""
  1028.         Return
  1029.         :LABEL050
  1030.         If (Exist(STRING024)) Then
  1031.             FOpen 0, STRING024, 0, 0
  1032.             :LABEL051
  1033.             If (Ferr(0)) Goto LABEL052
  1034.             STRING082 = ""
  1035.             FGet 0, STRING082
  1036.             STRING082 = ReplaceStr(STRING082, "@FILENAME@", STRING005)
  1037.             STRING082 = ReplaceStr(STRING082, "@DIRECTORIES@", STRING009)
  1038.             STRING082 = ReplaceStr(STRING082, "@FILEDATE@", STRING008)
  1039.             STRING082 = ReplaceStr(STRING082, "@FLAGDL@", STRING010)
  1040.             STRING082 = ReplaceStr(STRING082, "@CAPTURE@", STRING011)
  1041.             STRING082 = ReplaceStr(STRING082, "@SRCHCMD@", STRING012)
  1042.             PrintLn STRING082
  1043.             Goto LABEL051
  1044.             :LABEL052
  1045.             FClose 0
  1046.         Else
  1047.             Log "   ■ Error: ZSRCHFLE file not found!", 0
  1048.         Endif
  1049.         STRING082 = ""
  1050.         Return
  1051.         :LABEL053
  1052.         If (Exist(STRING025)) Then
  1053.             FOpen 0, STRING025, 0, 0
  1054.             :LABEL054
  1055.             If (Ferr(0)) Goto LABEL055
  1056.             STRING082 = ""
  1057.             FGet 0, STRING082
  1058.             STRING082 = ReplaceStr(STRING082, "@FILEDATE@", STRING008)
  1059.             STRING082 = ReplaceStr(STRING082, "@DIRECTORIES@", STRING009)
  1060.             STRING082 = ReplaceStr(STRING082, "@FLAGDL@", STRING010)
  1061.             STRING082 = ReplaceStr(STRING082, "@CAPTURE@", STRING011)
  1062.             STRING082 = ReplaceStr(STRING082, "@SRCHCMD@", STRING012)
  1063.             PrintLn STRING082
  1064.             Goto LABEL054
  1065.             :LABEL055
  1066.             FClose 0
  1067.         Else
  1068.             Log "   ■ Error: ZSRCHDTE file not found!", 0
  1069.         Endif
  1070.         STRING082 = ""
  1071.         Return
  1072.         :LABEL056
  1073.         STRING005 = ""
  1074.         STRING006 = ""
  1075.         STRING007 = ""
  1076.         STRING008 = "000000"
  1077.         STRING009 = "A"
  1078.         STRING010 = "No"
  1079.         STRING011 = "Yes"
  1080.         STRING012 = "(N/A)"
  1081.         BOOLEAN003 = 0
  1082.         BOOLEAN004 = 0
  1083.         BOOLEAN005 = 0
  1084.         If (Exist(STRING045 + STRING041)) Delete STRING045 + STRING041
  1085.         If (Exist(STRING042 + STRING040)) Delete STRING042 + STRING040
  1086.         Return
  1087.         :LABEL057
  1088.         Newline
  1089.         If (Exist(STRING042 + STRING040)) Then
  1090.             STRING013 = String(FileInf(STRING042 + STRING040, 4))
  1091.             OpText STRING013
  1092.             PrintLn STRING059
  1093.             Newline
  1094.             OpText STRING041
  1095.             Print STRING060
  1096.             STRING044 = ReplaceStr(STRING044, "@COMPFILE@", STRING045 + STRING041)
  1097.             STRING044 = ReplaceStr(STRING044, "@ZCAPFILE@", STRING042 + STRING040)
  1098.             Shell 1, INTEGER011, STRING043, STRING044
  1099.             STRING014 = String(FileInf(STRING045 + STRING041, 4))
  1100.             OpText STRING014
  1101.             PrintLn STRING061
  1102.             OpText STRING041
  1103.             Print STRING062
  1104.             If (Exist(STRING042 + STRING040)) Delete STRING042 + STRING040
  1105.             PrintLn STRING063
  1106.             Newline
  1107.             If (BOOLEAN005) Then
  1108.                 PrintLn STRING067
  1109.                 Flag STRING045 + STRING041
  1110.                 If (!U_Expert || BOOLEAN002) Wait
  1111.                 Goto LABEL058
  1112.             Endif
  1113.             If (BOOLEAN005) Goto LABEL058
  1114.             PrintLn STRING065
  1115.             Flag STRING045 + STRING041
  1116.             Download ""
  1117.             BOOLEAN004 = 1
  1118.             :LABEL058
  1119.             If (!U_Expert || BOOLEAN002) Wait
  1120.         Endif
  1121.         Return
  1122.     Endif
  1123.     :LABEL059
  1124.     Newline
  1125.     If (BOOLEAN005) Then
  1126.         Gosub LABEL057
  1127.     ElseIf (BOOLEAN003 && !BOOLEAN004) Then
  1128.         STRING082 = STRING076
  1129.         OpText STRING041
  1130.         PrintLn STRING071
  1131.         Newline
  1132.         InputStr STRING072, STRING082, 7, 1, STRING078, STRING083 + 8 + 4 + 2
  1133.         STRING082 = Trim(STRING082, " ")
  1134.         If (STRING082 <> "N") Then
  1135.             STRING082 = "D"
  1136.             InputStr STRING074, STRING082, 7, 1, "DF", STRING083 + 8 + 4 + 2
  1137.             If (STRING082 == "D") BOOLEAN005 = 0
  1138.             If (STRING082 == "F") BOOLEAN005 = 1
  1139.             Gosub LABEL057
  1140.             Goto LABEL060
  1141.         Endif
  1142.         If (Exist(STRING045 + STRING041)) Delete STRING045 + STRING041
  1143.         If (Exist(STRING042 + STRING040)) Delete STRING042 + STRING040
  1144.     Endif
  1145.     :LABEL060
  1146.     If (INTEGER001 <> 1) Then
  1147.         PrintLn "@X07[@X0CThis version of ZippyList is " + STRING003 + "@X07]"
  1148.         PrintLn "@X07[@X0ACall DavaSoft to register - BBS: 718-967-6827 Voice: 718-967-5713@X07]"
  1149.         Newline
  1150.         PrintLn "@X0AReturning to system ..."
  1151.     ElseIf (INTEGER001 == 1) Then
  1152.         PrintLn "@X07Returning to @X0A" + STRING016 + "@X07 ..."
  1153.     Endif
  1154.     Log "ZippyList Ended at " + Left(Time(), 5), 0
  1155.     If (DbgLevel() > 0) DbgLevel 0
  1156.     End
  1157.  
  1158. ;------------------------------------------------------------------------------
  1159. ;
  1160. ; Usage report (before postprocessing)
  1161. ;
  1162. ; ■ Statements used :
  1163. ;
  1164. ;    1       End
  1165. ;    1       Cls
  1166. ;    1       ClrEol
  1167. ;    20      Wait
  1168. ;    254     Goto 
  1169. ;    254     Let 
  1170. ;    3       Print 
  1171. ;    44      PrintLn 
  1172. ;    190     If 
  1173. ;    21      DispFile 
  1174. ;    5       FOpen 
  1175. ;    5       FClose 
  1176. ;    63      FGet 
  1177. ;    1       GetUser
  1178. ;    5       Delete 
  1179. ;    40      Log 
  1180. ;    16      InputStr 
  1181. ;    40      Gosub 
  1182. ;    24      Return
  1183. ;    1       CdChkOn
  1184. ;    1       CdChkOff
  1185. ;    1       Delay 
  1186. ;    28      Newline
  1187. ;    5       Newlines 
  1188. ;    1       Shell 
  1189. ;    5       DispText 
  1190. ;    1       Beep
  1191. ;    1       KbdStuff 
  1192. ;    3       Dir 
  1193. ;    1       KbdChkOn
  1194. ;    1       KbdChkOff
  1195. ;    14      OpText 
  1196. ;    2       AnsiPos 
  1197. ;    1       OpenCap 
  1198. ;    1       CloseCap 
  1199. ;    1       DbgLevel 
  1200. ;    1       ShowOn
  1201. ;    1       ShowOff
  1202. ;    1       Copy 
  1203. ;    2       Flag 
  1204. ;    1       Download 
  1205. ;
  1206. ;
  1207. ; ■ Functions used :
  1208. ;
  1209. ;    4       *
  1210. ;    187     +
  1211. ;    6       -
  1212. ;    98      ==
  1213. ;    21      <>
  1214. ;    4       <
  1215. ;    4       <=
  1216. ;    2       >
  1217. ;    6       >=
  1218. ;    161     !
  1219. ;    13      &&
  1220. ;    38      ||
  1221. ;    7       Len(
  1222. ;    30      Upper()
  1223. ;    3       Mid()
  1224. ;    20      Left()
  1225. ;    2       Right()
  1226. ;    3       Ferr()
  1227. ;    20      Chr()
  1228. ;    3       Asc()
  1229. ;    3       InStr()
  1230. ;    1       LTrim()
  1231. ;    5       RTrim()
  1232. ;    20      Trim()
  1233. ;    1       Date()
  1234. ;    2       Time()
  1235. ;    3       U_LDir()
  1236. ;    1       Ver()
  1237. ;    1       NoChar()
  1238. ;    1       YesChar()
  1239. ;    7       Replace()
  1240. ;    2       Strip()
  1241. ;    10      String()
  1242. ;    2       Mask_Num()
  1243. ;    23      PPEPath()
  1244. ;    1       ValDate()
  1245. ;    4       PcbNode()
  1246. ;    1       GetToken()
  1247. ;    8       GetEnv()
  1248. ;    39      Exist()
  1249. ;    1       LangExt()
  1250. ;    1       GetY()
  1251. ;    1       DefColor()
  1252. ;    3       FileInf()
  1253. ;    1       PPEName()
  1254. ;    3       DbgLevel()
  1255. ;    30      ReplaceStr()
  1256. ;    1       ToInteger()
  1257. ;
  1258. ;------------------------------------------------------------------------------
  1259. ;
  1260. ; Analysis flags : Sf
  1261. ;
  1262. ; S - Shell to DOS ■ 5
  1263. ;     This may be normal if the PPE need to execute an external command,
  1264. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  1265. ;     or usefull (sorting, maintenance,...). Check!
  1266. ;     ■ Search for : SHELL
  1267. ;
  1268. ; f - Flag files for download ■ 3
  1269. ;     This may be normal if a PPE needs to send some files, but since
  1270. ;     this statement allows flagging of any file on the hard disk, you
  1271. ;     have to be carefull. Check!
  1272. ;     ■ Search for : FLAG
  1273. ;
  1274. ;------------------------------------------------------------------------------
  1275. ;
  1276. ; Postprocessing report
  1277. ;
  1278. ;    3       For/Next
  1279. ;    5       While/EndWhile
  1280. ;    114     If/Then or If/Then/Else
  1281. ;    1       Select Case
  1282. ;
  1283. ;------------------------------------------------------------------------------
  1284. ;                 AEGiS Corp - Break the routines, code against the machines!
  1285. ;------------------------------------------------------------------------------
  1286.